﻿Public Class PedidoCaptura
    Inherits System.Web.UI.Page
    Shared Persona_cn_pedido As New Persona

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ImagFondo As Image = Page.Master.FindControl("Imag_Fondo")

        If Not Page.IsPostBack Then

            ImagFondo.Height = 300

        End If
    End Sub


    Protected Sub btnBuscar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnBuscar.Click



        'seteo los controles ----
        lblMsje.Text = ""
        lblMsje.Visible = False



        lbl_Cartel_fecha.Visible = False
        lblfechaCaptura.Text = ""
        lblfechaCaptura.Visible = False


        lblDni.Text = ""
        lblApellido.Text = ""
        lblnombre.Text = ""
        btnCaptura.Visible = False
        '------------------------


        lblDNIpaciente.Visible = False
        lblDni.Visible = False
        lblnombre.Visible = False
        lblNombrePaciente.Visible = False
        lblApellido.Visible = False
        lblApellidoPaciente.Visible = False


        ' valido los datos
        If txtDNI.Text = "" Then
            FG.MuestraCartel("Debe ingresar un Dni", lblMsje)
            Exit Sub
        End If

        Persona_cn_pedido.SetaDatosXDn(txtDNI.Text)

        If Persona_cn_pedido.Dev_ExistePersona = True Then
            If Persona_cn_pedido.Dev_EstaMurido = True Then
                FG.MuestraCartel("La persona ha fallecido", lblMsje)
                Exit Sub
            End If


            btnCaptura.Visible = True

            lblDNIpaciente.Visible = True
            lblDni.Visible = True
            lblnombre.Visible = True
            lblNombrePaciente.Visible = True
            lblApellido.Visible = True
            lblApellidoPaciente.Visible = True

            lblDni.Text = Persona_cn_pedido.Dev_Dni
            lblnombre.Text = Persona_cn_pedido.Dev_Nombre
            lblApellido.Text = Persona_cn_pedido.Dev_apellido



            If Persona_cn_pedido.Dev_PedidoCaptura = True Then
                Me.btnCaptura.Text = "Levantar el aviso de captura"

                lbl_Cartel_fecha.Visible = True
                FG.MuestraCartel(Persona_cn_pedido.dev_fechaPEdidoCaptura, lblfechaCaptura)
            Else
                btnCaptura.Text = "Asignar aviso de captura"

                lbl_Cartel_fecha.Visible = False
                FG.SacaCartelDeAViso(lblfechaCaptura)

            End If

        Else
            FG.MuestraCartel("La persona no exite", Me.lblMsje)
            btnCaptura.Visible = False

        End If


    End Sub



    Protected Sub btnCaptura_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCaptura.Click
        Dim param(0) As ADODB.Parameter
        Dim x As Boolean




        param(0) = New ADODB.Parameter
        param(0).Name = "@dni"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = Persona_cn_pedido.Dev_Dni
        param(0).Size = 10



        'si tiene pedido de captura, se la saco
        'y si no tiene pedido de aptura se la pongo
        If Persona_cn_pedido.Dev_PedidoCaptura = True Then
            x = (Datos.Modificar("LevantaAvisoDeCapturaxDni", param, "  btnCaptura_Click - pantalla  pedido captura "))

            If x = True Then
                btnCaptura.Text = "Asignar aviso de captura"

                'escuendo los carteles
                lbl_Cartel_fecha.Visible = False
                lblfechaCaptura.Visible = False

            End If


        Else

            x = Datos.Agregar("AgregaAvisoDeCapturaxDni", param, "")

            If x = True Then
                btnCaptura.Text = "Levantar el aviso de captura"

                'muestro los carteles
                lbl_Cartel_fecha.Visible = True

                lblfechaCaptura.Text = CStr(Date.Today)
                lblfechaCaptura.Visible = True
            End If

        End If

        'seteo de nuvo los datos del usuario
        If x = True Then
            Persona_cn_pedido.SetaDatosXDn(lblDni.Text)
        End If

    End Sub
End Class